PROGRAM division;
  VAR 
    a, b: INTEGER;
BEGIN 
  a := 4;
  b := 2;
  WriteLn('div: ', a / b);
  WriteLn('mod: ', a mod b);
  ReadLn();
END.